module Timer = struct
	
	(*to calculate working time of program*)
	
	let now () = Sys.time()
	
	let calc_exec_time result t = ( result , Sys.time() -. t )
		
end 